home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / areacode / areacode.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  7.0 KB  |  196 lines
  1. VERSION 2.00
  2. Begin Form areacode 
  3.    Caption         =   "Area Code Lookup"
  4.    ClientHeight    =   2730
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1695
  7.    ClientWidth     =   7905
  8.    FontBold        =   -1  'True
  9.    FontItalic      =   0   'False
  10.    FontName        =   "MS Sans Serif"
  11.    FontSize        =   12
  12.    FontStrikethru  =   0   'False
  13.    FontUnderline   =   0   'False
  14.    Height          =   3135
  15.    Icon            =   AREACODE.FRX:0000
  16.    Left            =   1035
  17.    LinkMode        =   1  'Source
  18.    LinkTopic       =   "Form1"
  19.    ScaleHeight     =   2730
  20.    ScaleWidth      =   7905
  21.    Top             =   1350
  22.    Width           =   8025
  23.    Begin CommandButton Command1 
  24.       Caption         =   "Look Up Area Code"
  25.       Default         =   -1  'True
  26.       Height          =   375
  27.       Left            =   5640
  28.       TabIndex        =   6
  29.       Top             =   2160
  30.       Width           =   2055
  31.    End
  32.    Begin TextBox ac 
  33.       FontBold        =   -1  'True
  34.       FontItalic      =   0   'False
  35.       FontName        =   "MS Sans Serif"
  36.       FontSize        =   12
  37.       FontStrikethru  =   0   'False
  38.       FontUnderline   =   0   'False
  39.       Height          =   420
  40.       Left            =   1800
  41.       TabIndex        =   3
  42.       Top             =   360
  43.       Width           =   735
  44.    End
  45.    Begin Label ltime 
  46.       BorderStyle     =   1  'Fixed Single
  47.       FontBold        =   -1  'True
  48.       FontItalic      =   0   'False
  49.       FontName        =   "MS Sans Serif"
  50.       FontSize        =   12
  51.       FontStrikethru  =   0   'False
  52.       FontUnderline   =   0   'False
  53.       Height          =   375
  54.       Left            =   1800
  55.       TabIndex        =   1
  56.       Top             =   1560
  57.       Width           =   5895
  58.    End
  59.    Begin Label Label1 
  60.       Alignment       =   1  'Right Justify
  61.       Caption         =   "Time:"
  62.       FontBold        =   -1  'True
  63.       FontItalic      =   0   'False
  64.       FontName        =   "MS Sans Serif"
  65.       FontSize        =   12
  66.       FontStrikethru  =   0   'False
  67.       FontUnderline   =   0   'False
  68.       Height          =   255
  69.       Left            =   840
  70.       TabIndex        =   0
  71.       Top             =   1560
  72.       Width           =   735
  73.    End
  74.    Begin Label location 
  75.       BorderStyle     =   1  'Fixed Single
  76.       FontBold        =   -1  'True
  77.       FontItalic      =   0   'False
  78.       FontName        =   "MS Sans Serif"
  79.       FontSize        =   9.75
  80.       FontStrikethru  =   0   'False
  81.       FontUnderline   =   0   'False
  82.       Height          =   375
  83.       Left            =   1800
  84.       TabIndex        =   5
  85.       Top             =   960
  86.       Width           =   5895
  87.    End
  88.    Begin Label Label3 
  89.       Alignment       =   1  'Right Justify
  90.       Caption         =   "Location:"
  91.       FontBold        =   -1  'True
  92.       FontItalic      =   0   'False
  93.       FontName        =   "MS Sans Serif"
  94.       FontSize        =   12
  95.       FontStrikethru  =   0   'False
  96.       FontUnderline   =   0   'False
  97.       Height          =   255
  98.       Left            =   240
  99.       TabIndex        =   4
  100.       Top             =   960
  101.       Width           =   1335
  102.    End
  103.    Begin Label Label2 
  104.       Alignment       =   1  'Right Justify
  105.       Caption         =   "Area Code:"
  106.       FontBold        =   -1  'True
  107.       FontItalic      =   0   'False
  108.       FontName        =   "MS Sans Serif"
  109.       FontSize        =   12
  110.       FontStrikethru  =   0   'False
  111.       FontUnderline   =   0   'False
  112.       Height          =   255
  113.       Left            =   120
  114.       TabIndex        =   2
  115.       Top             =   360
  116.       Width           =   1455
  117.    End
  118. Dim areacodes(256) As Integer   ' All the areacodes
  119. Dim timezones(256) As Integer   ' Timezones from GMT
  120. Dim areanames(256) As String    ' Name of the Area Codes
  121. Dim numac As Integer            ' # of areacodes
  122. Dim tzhere As Integer           ' Local time zone
  123. Dim tzformat As String          ' How we like time/dates formatted
  124. Sub Command1_Click ()
  125. '   This routine finds the area code the user has entered, displays the
  126. '   location and the time at that location.  No attempt is made to handle
  127. '   areacodes which are split across time zones or places that do not
  128. '   go onto daylight savings time with the rest of the nation...
  129.     Dim i As Integer
  130.     Dim findac As Integer
  131.     findac = Val(ac.text)               ' The current areacode as an integer
  132. '   We mark the areacode the user entered as "selected", so that after
  133. '   we finish the user can just start typing in a new area code without
  134. '   having to delete the old one...
  135.     ac.selstart = 0
  136.     ac.sellength = Len(ac.text)
  137. '   Search ...
  138.     For i = 1 To numac
  139.         If (areacodes(i) = findac) Then
  140.             ' When we find the area code, update the location and local times...
  141.             location.caption = areanames(i)
  142.             ltime.caption = Format$(Now + TimeSerial(tzhere, 0, 0) - TimeSerial(timezones(i), 0, 0), tzformat)
  143.             Exit Sub
  144.         End If
  145.     Next i
  146. '   We didn't find the area code! Beep, erase all text on the display,
  147. '   and open a message box to complain!
  148.     Beep
  149.     ac.text = ""
  150.     location.caption = ""
  151.     ltime.caption = ""
  152.     ac.sellength = 0
  153.     MsgBox "Invalid Area Code"
  154. End Sub
  155. Sub Form_Load ()
  156. '   When the form is first loaded, read in the area code database
  157. loadac
  158. End Sub
  159. Sub loadac ()
  160. '   This routine loads in the area code file, which is
  161. '   assumed to be called "ac.dat". The file contains
  162. '   two sections.  The first section contains two lines,
  163. '   the first being the local time zone (offset from GMT),
  164. '   and the second line holding the time/date format the user
  165. '   prefers.
  166. '   The second section contains the list of area codes, one per
  167. '   line.  The format is areacode/GMT offset/name
  168. Dim s1 As Integer, s2 As Integer                    ' Location of slashes in text
  169. Dim f1 As String, f2 As String, f3 As String        ' Fields of the text
  170. mousepointer = 11                                   ' Say we're busy
  171. Open "ac.dat" For Input As 1                        ' Open the database
  172. Input #1, tzhere                                    ' Read local time zone
  173. Line Input #1, tzformat                             ' Read prefered format
  174. On Error GoTo done
  175. '   Read in the table of areacodes
  176. For numac = 1 To 256
  177.     Line Input #1, l$
  178.     '   First break the line into the three pieces (/ is delimeter)
  179.     s1 = InStr(l$, "/")
  180.     s2 = InStr(s1 + 1, l$, "/")
  181.     f1 = Left$(l$, s1 - 1)
  182.     f2 = Mid$(l$, s1 + 1, s2 - (s1 + 1))
  183.     f3 = Mid$(l$, s2 + 1)
  184.     '   Then, assign our arrays the pieces
  185.     areacodes(numac) = Val(f1)
  186.     timezones(numac) = Val(f2)
  187.     areanames(numac) = f3
  188.     Next numac
  189. done:   Resume done2
  190. done2:
  191.     ' Decrement numac as it's past the end of the data
  192.     numac = numac - 1
  193.     '   Say we're not busy anymore...
  194.     mousepointer = 0
  195. End Sub
  196.